home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Information Management / Filevision® IV / FilevisionÆ IV / background_2807.txt < prev    next >
Text File  |  1990-03-16  |  841b  |  49 lines
  1. -- background: 2807 from stack: in
  2. -- bmap block id: 35564
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: book1
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set cursor to hand
  9. end openCard
  10.  
  11. --on idle
  12. get the number of this card
  13. put it into field "#"
  14. exit idle
  15. end idle
  16.  
  17.  
  18.  
  19. -- part 45 (button)
  20. -- low flags: 00
  21. -- high flags: 0000
  22. -- rect: left=468 top=0 right=31 bottom=505
  23. -- title width / last selected line: 0
  24. -- icon id / first selected line: 20098 / 20098
  25. -- text alignment: 1
  26. -- font id: 0
  27. -- text size: 12
  28. -- style flags: 0
  29. -- line height: 16
  30. -- part name: 
  31. ----- HyperTalk script -----
  32. on mouseUp
  33.   answer "Quit to Home or Finder?" with "Cancel" or "Home" or "Finder"
  34.   if it = "Cancel"
  35.   then
  36.   exit mouseUp
  37. end if
  38.  
  39. if it = "Home"
  40. then
  41. visual effect iris open
  42. domenu home
  43. else
  44.   show menubar
  45.   doMenu "Quit HyperCard"
  46. end if
  47. end mouseUp
  48.  
  49.